﻿
Partial Class Controles_ControlMaestra
    Inherits System.Web.UI.UserControl

    Protected Sub Controles_ControlMaestra_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
        Dim ruta As String = Request.ApplicationPath
        Dim codigo As String = ""
        Dim sUrl As String = Request.Url.Authority()
        sUrl = "http://" + sUrl
        codigo += "<ul >"
        codigo += "<li><a href=""" & sUrl & "/Santafe/MaestraRegistro.aspx"" title=""Registro"" ><span>Registro</span></a></li>"
        codigo += "<li><a href=""" & sUrl & "/Santafe/MaestraGenetica.aspx"" title=""Genetica"" ><span>Genetica</span></a></li>"
        codigo += "<li><a href=""" & sUrl & "/Santafe/MaestraFoto.aspx"" title=""Fotos"" ><span>Fotos</span></a></li>"
        codigo += "<li><a href=""" & sUrl & "/Santafe/EnProceso.aspx"" title=""Videos"" ><span>Videos</span></a></li>"
        codigo += "<li><a href=""" & sUrl & "/Santafe/EnProceso.aspx"" title=""Analisis""><span>Analisis</span></a></li>"
        codigo += "<li><a href=""" & sUrl & "/Santafe/MaestraEstado.aspx"" title=""Estado"" ><span>Estado</span></a></li>"
        codigo += "<li><a href=""" & sUrl & "/Santafe/EnProceso.aspx"" title=""Historico"" ><span>Historico</span></a></li>"
        codigo += "<li><a href=""" & sUrl & "/Santafe/MaestraConsulta.aspx"" title=""Consulta""><span>Consulta</span></a></li>"
        codigo += "<li><a href=""" & sUrl & "/Santafe/MaestraEmpadres.aspx"" title=""Empadres""><span>Empadres</span></a></li>"
        codigo += "<li><a href=""" & sUrl & "/Santafe/EnProceso.aspx"" title=""Estadistica""><span>Estadistica</span></a></li>"
        codigo += "<li><a href=""" & sUrl & "/Santafe/MaestraImprime.aspx"" title=""Reportes""><span>Reporteador</span></a></li>"
        codigo += "<li><a href=""" & sUrl & "/Santafe/EnProceso.aspx"" title=""Utilerias""><span>Utilerias</span></a></li>"
        codigo += "<li><a href=""" & sUrl & "/Santafe/MaestraConfigura.aspx"" title=""Configura""><span>Configura</span></a></li>"
        codigo += "</ul>"
        Literal1.Text = codigo
    End Sub
End Class
